home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / obsolete / nr_wtn.pro < prev    next >
Text File  |  1997-07-08  |  865b  |  31 lines
  1. ; $Id: nr_wtn.pro,v 1.2 1997/01/15 04:02:19 ali Exp $
  2. ;
  3. ; Copyright (c) 1994-1997, Research Systems, Inc.  All rights reserved.
  4. ;    Unauthorized reproduction prohibited.
  5. ;+
  6. ; NAME:
  7. ;    NR_WTN
  8. ;
  9. ; PURPOSE:
  10. ;
  11. ;    NR_WTN now executes WTN, the updated version of this routine. 
  12. ;       WTN has been modified to accept row vectors as the default input 
  13. ;    and column vectors with use of the COLUMN keyword.  This routine
  14. ;    preserves the input of column vectors.
  15. ;
  16. ; MODIFICATION HISTORY:
  17. ;       Written by:     BMH Nov, 1994
  18. ;-
  19. FUNCTION NR_WTN, a, coef, DOUBLE=double, INVERSE=inverse, OVERWRITE=overwrite
  20.  
  21.   IF NOT KEYWORD_SET(double) THEN  double = 0
  22.   IF NOT KEYWORD_SET(inverse) THEN  inverse = 0
  23.   IF NOT KEYWORD_SET(overwrite) THEN  overwrite = 0
  24.  
  25.   result = WTN(a, coef, DOUBLE=double, INVERSE=inverse, OVERWRITE=overwrite, $
  26.            /COLUMN)
  27.  
  28.   RETURN, result
  29.  
  30. END
  31.